home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 December / PCWDEC06.iso / Software / Full / Serif Page Plus 8 / data1.cab / PagePlus_-_Dlls / psheader.hdr < prev    next >
Encoding:
Text File  |  2006-08-24  |  5.1 KB  |  112 lines
  1. /serifdict where not { /serifdict 200 dict def serifdict begin
  2. /bd { bind def } bind def
  3. /xd { exch def } bd
  4. /ppsepmode 0 def /ppink 0 def
  5. /ppsetscr /setscreen load def
  6. /setscreen {pop pop pop} def
  7. /ppcr false def /ppca false def /pptr 0 def /pptg 0 def /pptb 0 def /pptint 100
  8. def /ppminc 0 def /ppyinm 0 def /ppdc false def /pptrp false def /ppsprd 0 def
  9. /setrgbcolor {pprc {ppreclr} if setrgbcolor} bd
  10. /pprc { pptint 100 ne ppcr or ppca or } bd
  11. /ppreclr { ppcr { 2 div add exch 3 mul 5 div add 2.1 div 1 exch sub /ppt xd
  12. pptr 1 sub ppt mul 1 add pptg 1 sub ppt mul 1 add pptb 1 sub ppt mul 1 add }
  13. { ppca {pop pop pop pptr pptg pptb} if } ifelse pptint 100 ne { 3 {1 sub pptint
  14. mul 100 div 1 add 3 1 roll } repeat } if } def
  15. /sc { scignore {pop pop pop} {3{255 div 3 1 roll}repeat setrgbcolor} ifelse } def
  16. /sco  { setrgbcolor } def
  17. /sgco { {setgray}{sco}? } def
  18. /ppbc { 0 index 2 index eq 2 index
  19. 4 index eq and {pop pop 1 exch sub}{pop pop pop 0} ifelse } bd /ppcc { 100
  20. div mul 1 index mul sub } bd /ppci { /ppblk xd /ppye xd /ppma
  21. xd /ppcy xd ppma ppcy ppminc ppcc /ppma xd ppye ppma ppyinm
  22. ppcc /ppye xd ppcy ppma ppye ppblk } bd /pprtc { /ppb xd /ppg
  23. xd /ppr xd ppr ppg ppb ppbc /ppblk xd 1 ppr sub ppblk sub 1
  24. ppg sub ppblk sub 1 ppb sub ppblk sub ppblk ppdc { ppci } if } bd
  25. /cmyktorgb {3{dup 5 -1 roll add 1 exch sub dup 0 lt{pop 0}if exch}repeat pop}bd
  26. /setcmykcolor where{pop /ppsetcmykcolor /setcmykcolor load def}{/ppsetcmykcolor
  27. {cmyktorgb setrgbcolor}bd }ifelse
  28. /setcmykcolor { ppca ppcr or { cmyktorgb setrgbcolor }{ pptint 100 ne
  29. { 4 {pptint mul 100 div 4 1 roll} repeat }if ppsepmode 0 eq {ppsetcmykcolor}
  30. {3 ppink sub index 5 1 roll 4 {pop} repeat 1 exch sub setgray} ifelse } ifelse
  31. } bd
  32. /sethsbcolor {ppsepmode 0 eq{sethsbcolor}{sethsbcolor currentrgbcolor
  33. setrgbcolor}ifelse}bd
  34. /ppp[ {pprc {ppreclr} if pprtc pop pop pop 1 exch sub setgray}{pprc {ppreclr} if
  35. pprtc pop pop exch pop 1 exch sub setgray}{pprc {ppreclr} if pprtc pop 3 1 roll
  36. pop pop 1 exch sub setgray}{pprc {ppreclr} if pprtc 4 1 roll pop pop pop 1 exch
  37. sub setgray}] bd /ppcs 0 def /ppms 1 def /ppys 2 def /ppbs 3 def
  38. /ppssrgbp {serifdict /ppp get exch get /setrgbcolor xd } bd
  39. /ppsssp {dup serifdict /ppsa get exch get exch serifdict /ppf get exch
  40. get exch currentscreen 3 1 roll pop pop ppsetscr} bd
  41. /setgray {dup dup setrgbcolor} def
  42. /ppfill {gsave eofill grestore} bd
  43. /pppp {{rlineto} repeat} bd
  44. currentscreen/ppDefDot xd/ppSDot /ppDefDot def/ppSAng xd/ppSRes xd
  45. /ppScrDot{2 index 0 eq{ppSRes 3 1 roll 4 -1 roll pop}if 3 copy
  46. load ppsetscr /ppSDot xd /ppSAng xd /ppSRes xd}bd
  47. end
  48.  
  49. userdict begin
  50. /stroke { serifdict /pptrp get currentgray 1 ne and { /ppclw currentlinewidth def 
  51. /pplc currentlinecap def 2 setlinecap currentlinewidth serifdict /ppsprd get add 
  52. setlinewidth stroke pplc setlinecap ppclw setlinewidth }{ stroke } ifelse } bind def
  53. /stroke0 { /clw currentlinewidth def 0 setlinewidth stroke clw setlinewidth } bind def
  54. /eofill { serifdict /pptrp get { gsave eofill grestore stroke0 }{ eofill } ifelse
  55. } bind def
  56. /fill { serifdict /pptrp get { gsave fill grestore stroke0 }{ fill } ifelse
  57. } bind def
  58. /pptrapchar { currentpoint /cpy2 exch def /cpx2 exch def
  59. moveto false charpath stroke0 cpx2 cpy2 moveto } bind def
  60. /show { serifdict /pptrp get { /str 1 string def { str 0 3 -1 roll put
  61. currentpoint /cpy exch def /cpx exch def str show str cpx cpy pptrapchar }
  62. forall }{ show } ifelse } bind def
  63. /widthshow { serifdict /pptrp get { 4 1 roll /ch exch def /cy exch def /cx exch def
  64. /str 1 string def { /ch2 exch def str 0 ch2 put currentpoint /cpy exch def
  65. /cpx exch def cx cy ch str widthshow str cpx cpy pptrapchar } forall }
  66. { widthshow } ifelse } bind def
  67. /ashow { serifdict /pptrp get { 3 1 roll /ay exch def /ax exch def /str 1 string
  68. def { str 0 3 -1 roll put currentpoint /cpy exch def /cpx exch def ax ay str
  69. ashow str cpx cpy pptrapchar } forall }{ ashow } ifelse } bind def
  70. /awidthshow { serifdict /pptrp get { 6 1 roll /ay exch def /ax exch def
  71. /ch exch def /cy exch def /cx exch def /str 1 string def { /ch2 exch def str 0
  72. ch2 put currentpoint /cpy exch def /cpx exch def cx cy ch ax ay str awidthshow
  73. str cpx cpy pptrapchar }forall }{ awidthshow } ifelse } bind def
  74. end
  75. /Pscript_Win_Driver_Incr where 
  76. { pop Pscript_Win_Driver_Incr begin 
  77. /S /show load def 
  78. /W /widthshow load def 
  79. /A /ashow load def 
  80. /D /awidthshow load def 
  81. /K /stroke load def 
  82. /L /fill load def 
  83. /O /eofill load def end } if
  84. /Adobe_Win_Driver_Incr where 
  85. { pop Adobe_Win_Driver_Incr begin 
  86. /S /show load def 
  87. /W /widthshow load def 
  88. /A /ashow load def 
  89. /D /awidthshow load def 
  90. /K /stroke load def 
  91. /L /fill load def 
  92. /O /eofill load def end } if 
  93. /Pscript_WinNT_Incr where 
  94. { pop Pscript_WinNT_Incr begin 
  95. /S /show load def 
  96. /W /widthshow load def 
  97. /A /ashow load def 
  98. /D /awidthshow load def 
  99. /K /stroke load def 
  100. /L /fill load def 
  101. /O /eofill load def end } if
  102. %Microsft Postscript driver version 4.00
  103. /NTPSOct95 where  
  104. { pop NTPSOct95 begin 
  105. % /MS {/moveto /show} load def %not sure
  106. /t /show load def 
  107. /aw /awidthshow load def 
  108. /s /stroke load def 
  109. /f /fill load def 
  110. /e /eofill load def end } if
  111. }{pop} ifelse % pop the serifdict if defined already (first line)
  112.